MacFormat 1996 August/macformat-040.iso/mac/Demos/Secrets of the Luxor® Demo/invitem/00011.ls

Text File | 1996-04-26 | 579 b | 29 lines

on exitFrame
  global campath
  set spnum to 3
  set picb to window "pics"
  tell the stage
    set the fileName of picb to campath & "picbuf"
  end tell
  repeat with i = 10 to 33
    tell picb
      set pich to the castType of cast i
    end tell
    if pich = #empty then
      exit repeat
      next repeat
    end if
    tell picb
      copyToClipBoard(cast i)
    end tell
    set j to i + 132
    pasteClipBoardInto(cast j)
    set the visible of sprite spnum to 1
    updateStage()
    set spnum to spnum + 1
  end repeat
  tell the stage
    forget(picb)
  end tell
end